home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / System / System.p < prev    next >
Encoding:
Text File  |  2000-05-03  |  10.5 KB  |  318 lines
  1. pTempVar <- <primitive 110 23 >
  2. <primitive 112 pTempVar 1  " new: " \
  3.   #( #[ 16r21 16r6A 16r20 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " setTerminators: " \
  7.   #( #[ 16r30 16r21 16r1A 16rFA 16r03 16rE3 16rF1 16r60 16rF3 16rF5] \
  8.     #( 14  )) >
  9.  
  10. <primitive 112 pTempVar 3  " setFlags: " \
  11.   #( #[ 16r30 16r56 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r68 16rF3 16rF5 \
  12.        ] \
  13.     #( 13  )) >
  14.  
  15. <primitive 112 pTempVar 4  " setRBufSize: " \
  16.   #( #[ 16r30 16r55 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r67 16rF3 16rF5 \
  17.        ] \
  18.     #( 13  )) >
  19.  
  20. <primitive 112 pTempVar 5  " setBreakLen: " \
  21.   #( #[ 16r30 16r54 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r66 16rF3 16rF5 \
  22.        ] \
  23.     #( 13  )) >
  24.  
  25. <primitive 112 pTempVar 6  " setStops: " \
  26.   #( #[ 16r30 16r53 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r64 16rF3 16rF5 \
  27.        ] \
  28.     #( 13  )) >
  29.  
  30. <primitive 112 pTempVar 7  " setDataSize: " \
  31.   #( #[ 16r30 16r52 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r63 16rF3 16rF5 \
  32.        ] \
  33.     #( 13  )) >
  34.  
  35. <primitive 112 pTempVar 8  " setParity:status: " \
  36.   #( #[ 16r30 16r21 16r22 16r1A 16rFA 16r04 16rE3 16rF2 16rF5] \
  37.     #( 15  )) >
  38.  
  39. <primitive 112 pTempVar 9  " setBaud: " \
  40.   #( #[ 16r30 16r50 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r62 16rF3 16rF5 \
  41.        ] \
  42.     #( 13  )) >
  43.  
  44. <primitive 112 pTempVar 10  " setSyncType: " \
  45.   #( #[ 16r30 16r21 16r1A 16rFA 16r03 16rE3 16rF1 16r69 16rF3 16rF5] \
  46.     #( 12  )) >
  47.  
  48. <primitive 112 pTempVar 11  " clearReadBuffer " \
  49.   #( #[ 16r30 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
  50.     #( 11  )) >
  51.  
  52. <primitive 112 pTempVar 12  " flush " \
  53.   #( #[ 16r30 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
  54.     #( 10  )) >
  55.  
  56. <primitive 112 pTempVar 13  " getStatus " \
  57.   #( #[ 16r59 16r1A 16rFA 16r02 16rE3 16rF1 16r61 16rF3 16rF5] \
  58.     #(  )) >
  59.  
  60. <primitive 112 pTempVar 14  " sendBreakOfDuration: " \
  61.   #( #[ 16r58 16r21 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
  62.     #(  )) >
  63.  
  64. <primitive 112 pTempVar 15  " restart " \
  65.   #( #[ 16r57 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
  66.     #(  )) >
  67.  
  68. <primitive 112 pTempVar 16  " pause " \
  69.   #( #[ 16r56 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
  70.     #(  )) >
  71.  
  72. <primitive 112 pTempVar 17  " reset " \
  73.   #( #[ 16r55 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
  74.     #(  )) >
  75.  
  76. <primitive 112 pTempVar 18  " writeThis: " \
  77.   #( #[ 16r54 16r21 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
  78.     #(  )) >
  79.  
  80. <primitive 112 pTempVar 19  " readSync: " \
  81.   #( #[ 16r53 16r21 16r1A 16rFA 16r03 16rE3 16rF3 16rF5] \
  82.     #(  )) >
  83.  
  84. <primitive 112 pTempVar 20  " initializeWithTerm: " \
  85.   #( #[ 16r52 16r21 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
  86.     #(  )) >
  87.  
  88. <primitive 112 pTempVar 21  " close " \
  89.   #( #[ 16r50 16r15 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
  90.     #(  )) >
  91.  
  92. <primitive 112 pTempVar 22  " open " \
  93.   #( #[ 16r51 16r15 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
  94.     #(  )) >
  95.  
  96. <primitive 112 pTempVar 23  " setBufferSize: " \
  97.   #( #[ 16r21 16r65 16rF5] \
  98.     #(  )) >
  99.  
  100. <primitive 98 #SerialDevice \
  101.   <primitive 97 #SerialDevice #Device #AmigaTalk:System/SerialDevice.st \
  102.    #(  #terminators #status #baudrate #dSize #stops #bufferSize #brkLen #rBufSize \
  103.         #syncType #serialName ) \
  104.    #( #new: #setTerminators: #setFlags: #setRBufSize: #setBreakLen: #setStops:  \
  105.        #setDataSize: #setParity:status: #setBaud: #setSyncType: #clearReadBuffer #flush #getStatus  \
  106.        #sendBreakOfDuration: #restart #pause #reset #writeThis: #readSync: #initializeWithTerm: #close  \
  107.        #open #setBufferSize:  ) \
  108.   pTempVar 3 5 >>
  109.  
  110. pTempVar <- <primitive 110 9 >
  111. <primitive 112 pTempVar 1  " write:this: " \
  112.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  113.     #( 'write: devName this: string' #subClassResponsibility:  )) >
  114.  
  115. <primitive 112 pTempVar 2  " update " \
  116.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  117.     #( 'update' #notImplemented:  )) >
  118.  
  119. <primitive 112 pTempVar 3  " start " \
  120.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  121.     #( 'start' #notImplemented:  )) >
  122.  
  123. <primitive 112 pTempVar 4  " stop " \
  124.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  125.     #( 'stop' #notImplemented:  )) >
  126.  
  127. <primitive 112 pTempVar 5  " reset: " \
  128.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  129.     #( 'reset: devName' #subClassResponsibility:  )) >
  130.  
  131. <primitive 112 pTempVar 6  " read: " \
  132.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  133.     #( 'read: devName' #notImplemented:  )) >
  134.  
  135. <primitive 112 pTempVar 7  " invalid " \
  136.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  137.     #( 'invalid' #notImplemented:  )) >
  138.  
  139. <primitive 112 pTempVar 8  " flush: " \
  140.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  141.     #( 'flush: devName' #subClassResponsibility:  )) >
  142.  
  143. <primitive 112 pTempVar 9  " clear " \
  144.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
  145.     #( 'clear' #notImplemented:  )) >
  146.  
  147. <primitive 98 #Device \
  148.   <primitive 97 #Device #Object #AmigaTalk:System/Device.st \
  149.    #(  ) \
  150.    #( #write:this: #update #start #stop #reset: #read: #invalid #flush: #clear  ) \
  151.   pTempVar 3 3 >>
  152.  
  153. pTempVar <- <primitive 110 11 >
  154. <primitive 112 pTempVar 1  " new: " \
  155.   #( #[ 16r21 16r60 16r20 16rF3 16rF5] \
  156.     #(  )) >
  157.  
  158. <primitive 112 pTempVar 2  " getOpenCount " \
  159.   #( #[ 16r52 16r57 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  160.     #(  )) >
  161.  
  162. <primitive 112 pTempVar 3  " getCheckSum " \
  163.   #( #[ 16r52 16r56 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  164.     #(  )) >
  165.  
  166. <primitive 112 pTempVar 4  " getRevision " \
  167.   #( #[ 16r52 16r55 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  168.     #(  )) >
  169.  
  170. <primitive 112 pTempVar 5  " getFlags " \
  171.   #( #[ 16r52 16r53 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  172.     #(  )) >
  173.  
  174. <primitive 112 pTempVar 6  " getPosSize " \
  175.   #( #[ 16r52 16r52 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  176.     #(  )) >
  177.  
  178. <primitive 112 pTempVar 7  " getNegSize " \
  179.   #( #[ 16r52 16r51 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  180.     #(  )) >
  181.  
  182. <primitive 112 pTempVar 8  " getVersion " \
  183.   #( #[ 16r52 16r54 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  184.     #(  )) >
  185.  
  186. <primitive 112 pTempVar 9  " getIDString " \
  187.   #( #[ 16r52 16r50 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
  188.     #(  )) >
  189.  
  190. <primitive 112 pTempVar 10  " close " \
  191.   #( #[ 16r50 16r10 16rFA 16r02 16rBE 16rF3 16rF5] \
  192.     #(  )) >
  193.  
  194. <primitive 112 pTempVar 11  " openVersion: " \
  195.   #( #[ 16r51 16r10 16r21 16rFA 16r03 16rBE 16rF3 16rF5] \
  196.     #(  )) >
  197.  
  198. <primitive 98 #Library \
  199.   <primitive 97 #Library #Object #AmigaTalk:System/Library.st \
  200.    #(  #libName ) \
  201.    #( #new: #getOpenCount #getCheckSum #getRevision #getFlags #getPosSize  \
  202.        #getNegSize #getVersion #getIDString #close #openVersion:  ) \
  203.   pTempVar 2 4 >>
  204.  
  205. pTempVar <- <primitive 110 23 >
  206. <primitive 112 pTempVar 1  " waitForYPos: " \
  207.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  208.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  209.     #( #getYPos  )) >
  210.  
  211. <primitive 112 pTempVar 2  " waitForXPos: " \
  212.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  213.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  214.     #( #getXPos  )) >
  215.  
  216. <primitive 112 pTempVar 3  " waitForQualifier: " \
  217.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  218.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  219.     #( #getQualifiers  )) >
  220.  
  221. <primitive 112 pTempVar 4  " waitForButton: " \
  222.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  223.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  224.     #( #getButtonCode  )) >
  225.  
  226. <primitive 112 pTempVar 5  " setControllerType: " \
  227.   #( #[ 16r21 16r5A 16rCB 16r21 16r81 16r00 16r53 16rC8 16rF7 16r08 16r58 \
  228.         16r10 16r21 16rFA 16r03 16rDF 16rF8 16r03 16rF2 16r31 16rA8 \
  229.         16rF2 16rF5] \
  230.     #( #& 'newCType parameter out of range (-1 to 3 only)!'  )) >
  231.  
  232. <primitive 112 pTempVar 6  " setYDeltaTransition: " \
  233.   #( #[ 16r55 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  234.     #(  )) >
  235.  
  236. <primitive 112 pTempVar 7  " setXDeltaTransition: " \
  237.   #( #[ 16r54 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  238.     #(  )) >
  239.  
  240. <primitive 112 pTempVar 8  " setTimeTransition: " \
  241.   #( #[ 16r21 16r50 16rC7 16rF7 16r05 16r30 16rA8 16rF2 16r5D 16rF3 16rF2 \
  242.         16r53 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  243.     #( 'timeOutValue out of range (S/B >= 0).'  )) >
  244.  
  245. <primitive 112 pTempVar 9  " setKeyTransition: " \
  246.   #( #[ 16r21 16r51 16rCB 16r21 16r81 16r00 16r53 16rC8 16rF7 16r08 16r52 \
  247.         16r10 16r21 16rFA 16r03 16rDF 16rF8 16r03 16rF2 16r31 16rA8 \
  248.         16rF2 16rF5] \
  249.     #( #& 'transType parameter out of range (1 to 3 only)!'  )) >
  250.  
  251. <primitive 112 pTempVar 10  " getTriggerYDelta " \
  252.   #( #[ 16r05 16r13 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  253.     #(  )) >
  254.  
  255. <primitive 112 pTempVar 11  " getTriggerXDelta " \
  256.   #( #[ 16r05 16r12 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  257.     #(  )) >
  258.  
  259. <primitive 112 pTempVar 12  " getTriggerTime " \
  260.   #( #[ 16r05 16r11 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  261.     #(  )) >
  262.  
  263. <primitive 112 pTempVar 13  " getTriggerKeys " \
  264.   #( #[ 16r05 16r10 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  265.     #(  )) >
  266.  
  267. <primitive 112 pTempVar 14  " getTimeStamp " \
  268.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  269.     #( 15  )) >
  270.  
  271. <primitive 112 pTempVar 15  " getIEAddress " \
  272.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  273.     #( 14  )) >
  274.  
  275. <primitive 112 pTempVar 16  " getYPos " \
  276.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  277.     #( 13  )) >
  278.  
  279. <primitive 112 pTempVar 17  " getXPos " \
  280.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  281.     #( 12  )) >
  282.  
  283. <primitive 112 pTempVar 18  " getQualifiers " \
  284.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  285.     #( 11  )) >
  286.  
  287. <primitive 112 pTempVar 19  " getButtonCode " \
  288.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  289.     #( 10  )) >
  290.  
  291. <primitive 112 pTempVar 20  " getControllerType " \
  292.   #( #[ 16r57 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  293.     #(  )) >
  294.  
  295. <primitive 112 pTempVar 21  " clearGamePortBuffer " \
  296.   #( #[ 16r56 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  297.     #(  )) >
  298.  
  299. <primitive 112 pTempVar 22  " closeGamePort " \
  300.   #( #[ 16r50 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  301.     #(  )) >
  302.  
  303. <primitive 112 pTempVar 23  " openGamePort:named: " \
  304.   #( #[ 16r51 16r22 16r21 16rFA 16r03 16rDF 16rF2 16r22 16r60 16r20 16rF3 \
  305.         16rF5] \
  306.     #(  )) >
  307.  
  308. <primitive 98 #GamePort \
  309.   <primitive 97 #GamePort #Device #AmigaTalk:System/GamePort.st \
  310.    #(  #pname ) \
  311.    #( #waitForYPos: #waitForXPos: #waitForQualifier: #waitForButton:  \
  312.        #setControllerType: #setYDeltaTransition: #setXDeltaTransition: #setTimeTransition:  \
  313.        #setKeyTransition: #getTriggerYDelta #getTriggerXDelta #getTriggerTime #getTriggerKeys  \
  314.        #getTimeStamp #getIEAddress #getYPos #getXPos #getQualifiers #getButtonCode  \
  315.        #getControllerType #clearGamePortBuffer #closeGamePort #openGamePort:named:  ) \
  316.   pTempVar 3 6 >>
  317.  
  318.